Namespace HBBSoft.Pivot
    <System.Serializable()> Public NotInheritable Class DimensionTree
        Dim _ID As Integer
        Friend ReadOnly Property ID() As Integer
            Get
                Return _ID
            End Get
        End Property

        Dim _Dimensions As New DimensionCollection
        Public ReadOnly Property Dimensions() As DimensionCollection
            Get
                Return _Dimensions
            End Get
        End Property

        Dim _MemberSet As New MemberSet
        Public ReadOnly Property MemberSet() As MemberSet
            Get
                Return _MemberSet
            End Get
        End Property

        Friend Sub New(ByVal ID As Integer)
            _ID = ID
        End Sub
        Private Sub New()
        End Sub
    End Class
End Namespace
